package com.ruoyi.framework.aspectj;

import com.ruoyi.common.core.domain.TreeEntity;
import org.aspectj.lang.JoinPoint;
import org.aspectj.lang.ProceedingJoinPoint;
import org.aspectj.lang.annotation.Around;
import org.aspectj.lang.annotation.Aspect;
import org.aspectj.lang.annotation.Before;
import org.aspectj.lang.reflect.MethodSignature;
import org.springframework.stereotype.Component;
import com.ruoyi.common.annotation.DataScope;
import com.ruoyi.common.core.domain.BaseEntity;
import com.ruoyi.common.core.domain.entity.SysRole;
import com.ruoyi.common.core.domain.entity.SysUser;
import com.ruoyi.common.utils.ShiroUtils;
import com.ruoyi.common.utils.StringUtils;

import java.lang.reflect.Type;
import java.util.*;
import java.util.concurrent.ConcurrentHashMap;
import java.util.concurrent.ConcurrentMap;

/**
 * 数据过滤处理
 *
 * @author ruoyi
 */
@Aspect
@Component
public class DataScopeAspect {
    /**
     * 全部数据权限
     */
    public static final String DATA_SCOPE_ALL = "1";

    /**
     * 自定数据权限
     */
    public static final String DATA_SCOPE_CUSTOM = "2";

    /**
     * 部门数据权限
     */
    public static final String DATA_SCOPE_DEPT = "3";

    /**
     * 部门及以下数据权限
     */
    public static final String DATA_SCOPE_DEPT_AND_CHILD = "4";

    /**
     * 仅本人数据权限
     */
    public static final String DATA_SCOPE_SELF = "5";

    /**
     * 数据权限过滤关键字
     */
    public static final String DATA_SCOPE = "dataScope";
    private static ConcurrentMap<Class, Boolean> BaseEntityChildrenMap = new ConcurrentHashMap<>();


    /**
     * 修改为环绕通知切点
     *
     * @param point
     * @param controllerDataScope
     * @return
     * @throws Throwable
     */
    @Around("@annotation(controllerDataScope)")
    public Object doBefore(ProceedingJoinPoint point, DataScope controllerDataScope) throws Throwable {
        clearDataScope(point);
        return handleDataScope(point, controllerDataScope);
    }

    protected Object handleDataScope(final ProceedingJoinPoint joinPoint, DataScope controllerDataScope) throws Throwable {
        // 获取当前的用户
        SysUser currentUser = ShiroUtils.getSysUser();
        return dataScopeFilter(joinPoint, currentUser, controllerDataScope.deptAlias(),
                controllerDataScope.userAlias());

    }

    /**
     * 数据范围过滤
     *
     * @param joinPoint 切点
     * @param user      用户
     * @param deptAlias 部门别名
     * @param userAlias 用户别名
     */
    public static Object dataScopeFilter(ProceedingJoinPoint joinPoint, SysUser user, String deptAlias, String userAlias) throws Throwable {
        StringBuilder sqlString = new StringBuilder();

        for (SysRole role : user.getRoles()) {
            String dataScope = role.getDataScope();
            if (DATA_SCOPE_ALL.equals(dataScope)) {
                sqlString = new StringBuilder();
                break;
            } else if (DATA_SCOPE_CUSTOM.equals(dataScope)) {
                sqlString.append(StringUtils.format(
                        " and {}.dept_id IN ( SELECT dept_id FROM sys_role_dept WHERE role_id = {} ) ", deptAlias,
                        role.getRoleId()));
            } else if (DATA_SCOPE_DEPT.equals(dataScope)) {
                sqlString.append(StringUtils.format(" and {}.dept_id = {} ", deptAlias, user.getDeptId()));
            } else if (DATA_SCOPE_DEPT_AND_CHILD.equals(dataScope)) {
                sqlString.append(StringUtils.format(
                        " and {}.dept_id IN ( SELECT dept_id FROM sys_dept WHERE dept_id = {} or find_in_set( {} , ancestors ) )",
                        deptAlias, user.getDeptId(), user.getDeptId()));
            } else if (DATA_SCOPE_SELF.equals(dataScope)) {
                if (StringUtils.isNotBlank(userAlias)) {
                    sqlString.append(StringUtils.format(" and {}.user_id = {} ", userAlias, user.getUserId()));
                } else {
                    // 数据权限为仅本人且没有userAlias别名不查询任何数据
                    sqlString.append(StringUtils.format(" and {}.dept_id = 0 ", deptAlias));
                }
            }
        }
        Object proceed = null;
        if (Objects.nonNull(joinPoint.getArgs()) && joinPoint.getArgs().length > 0) {
            Object[] objects = joinPoint.getArgs();
            MethodSignature signature = (MethodSignature) joinPoint.getSignature();
            Type[] types = signature.getMethod().getGenericParameterTypes();


            String typeName = null;
            Object param = null;
            BaseEntity baseEntity = null;
            for (int i = 0; i < types.length; i++) {
                param = objects[i];
                if (Objects.nonNull(param) && BaseEntity.class.isAssignableFrom(param.getClass())) {
                    baseEntity = (BaseEntity) param;
                    baseEntity.getParams().put(DATA_SCOPE, sqlString.toString());
                } else {
                    typeName = types[i].getTypeName();
                    if (typeName.indexOf("<") >= 0) {
                        continue;
                    }
                    Class cls = Class.forName(typeName);
                    if (BaseEntity.class.isAssignableFrom(cls)) {
                        baseEntity = (BaseEntity) cls.getDeclaredConstructor().newInstance();
                        baseEntity.getParams().put(DATA_SCOPE, sqlString.toString());
                        objects[i] = baseEntity;
                    }
                }


            }

            proceed = joinPoint.proceed(objects);

        } else {
            proceed = joinPoint.proceed();
        }
        return proceed;

    }

    /**
     * 拼接权限sql前先清空params.dataScope参数防止注入
     */
    private void clearDataScope(final JoinPoint joinPoint) {
        Object params = joinPoint.getArgs()[0];
        if (StringUtils.isNotNull(params) && params instanceof BaseEntity) {
            BaseEntity baseEntity = (BaseEntity) params;
            baseEntity.getParams().put(DATA_SCOPE, "");
        }
    }


}
